(pmail-summary-expunge-and-save): Use pmail-expunge-and-save.

diff --git a/lisp/mail/pmailsum.el b/lisp/mail/pmailsum.el
index a46b55156ed47b31ba433a94e8b6ab916295fdfb..8428857ef93bd766d8b890b155b86c7afb939db4 100644 (file)
--- a/lisp/mail/pmailsum.el
+++ b/lisp/mail/pmailsum.el
@@ -1314,13 +1314,8 @@ Position it according to WHERE which can be BEG or END"
   "Expunge and save PMAIL file."
   (interactive)
   (save-excursion
-    (set-buffer pmail-buffer)
-    (when (pmail-expunge-confirmed)
-      (pmail-only-expunge)))
+    (pmail-expunge-and-save))
   (pmail-update-summary)
-  (save-excursion
-    (set-buffer pmail-buffer)
-    (save-buffer))
   (set-buffer-modified-p nil))
 
 (defun pmail-summary-get-new-mail (&optional file-name)